library(dplyr)
library(ggplot2)

dat = read.csv('figure3.csv') %>%
      filter(!grepl('naics', Variable)) %>%
      arrange(Importance) %>%
      mutate(Variable = factor(Variable, levels=Variable))

p = ggplot(dat, aes(Importance, Variable)) + geom_point() +
    xlab('Importance') +
    ylab('') +
    theme_minimal() 
ggsave(p, file='figure3.pdf', width=8, height=4.3)
